home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / Gadget11.mod < prev    next >
Text File  |  1993-08-19  |  193b  |  6 lines

  1.     /* Gadget 11 : deactivate Gadgets 10 and 11 */
  2.     do i = 10 to 11 ; call RemoveGadget(HO,i) ; end
  3.     gad = GetClip('gadno') ; gad = gad -2
  4.     reset = SetClip('gadno',gad)
  5.     return
  6.